EEE 


D 8 
Sy 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
LLL IIIIIIIII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTTTT «LLL Ll 
LLL HII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTITTT «LLL + 
LLL LITT BBB RRRRRRRRRRRR TTTTTTTTTITITITT «LLL L 
LLL 111 BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BB BBB RRR RRR TTT LLL LI 
LLL 11] BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BBB BBB RRR RRR TTT LLL | Ll 
LLL Il] BBB RRR RRR TTT LLL Ll 
LLL Il] BBB BBB RRR RRR TTT LLL Ll 
LLL III B RRRRRRRRRRRR TTT LLL Ll 
LLL Ill BBBBBBBBBBBB RRRRRRRRRRRR TTT LLL LI 
LLL Ill 8 RRRRRRRRRRRR TTT LLL ul 
LLL III BRA BBB RRR RRR TTT LLL 
LLL II] BBB RRR RRR TTT LLL Ll 
LLL II] BER BBB RRR RRR TTT LLL Ll 
LLL II] BRB BBB RRR RRR TTT LLL Ll 
LLL III ERB BBB RRR RRR TTT LLL Ll 
LLL Ill BSB BB RRR RRR TTT LLL Ll 
LLELLLLLLLLLLLLL IIIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL Ll 
LLELLLLLLLLLLLLL TITIII111 BBBBBBBBBBBB RRR RRR TTT LI 
LLELLLLLLLLLLLLL LIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL 


| 
LLLLLLLLLLLLLLL | 
| 
| 
| 


Ta 


a ee eo 
ee ee ee a ee ee ee 
—— 


3333333353535 


333333553535 
Sssssssses 


WVU VYUIWUWY 
WVBYVYVUVYVUYUYY 


od 
a 
ee ee 


8888888888 


: 


8888888888 


**F ILE**1D**OTSCNVOUT 


LLLLLLLLLL 
LLLLLLLLLL 
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(2) 45 Edit Mist t 
(5) $6 Be EL AnAt ON 
(5) 1 OTSSCNVOUT = Convert real to text 


0 


F 10 
esto * Canvort oot CD, Sm co tore MESES PHEth OIE Rial as Ol 


TiTLe Orsscwvout - Convert Real (D, G, H) to Tex 
IDENT /1-011/ ; File: OTSCNVOUT. RAR EDIT:MDL1011 


MAAAARAARARAAAALALALAALA AAAS ALE SAREE ELSA E EEE ERR EE EEE REE EEE EEE EE CEES 


CTA ce ‘o 1978 1308 1982, 1984 BY 
DIGITA UIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS. RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY yet wi NCE WITH THE TERMS OF revs" LICENSE AND WITH THE 
INCLUSION OF THE ABOVE ft githil NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 

ER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


& 
® 
a 
® 
® 
om 
® 
* 
aa 
a 
TRANSFERRED. . 
& 
e 
® 
& 
a 
® 
* 
7 
* 
® 


ee db a be ts 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
ae ookat ihe T BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBI 
SOFTWARE ON EQUIPMENT WHICH I 


} 
eee 


LITY FOR THE USE OR RELIABILITY OF ITS 
S NOT SUPPLIED BY DIGITAL. 


. eaeeneneneneeeneeeeeeeaeeaeneane 


LARA RARARRRRARAASAAAASLLALELELE LEE EERE REET REESE EERE EERE EEE EER EERE ECE EES SE 


y FACILITY: Language Independent Support Library 

> ABSTRACT: 

: Routines to convert D, G and . negetias values to text representations. 
: This module produces the FORTRAN E format as an ai 

; to the conversion between D, F, Q, and Packed data types. 


; ENVIRONMENT: User Mode, AST Reentrant 


S AUTHOR: R. REICHERT, CREATION DATE: 27-Sept-1979 


6 1 
onvert Real (D, G, H) to Text 


— 


"SSep19be FF 48:03 


AX/VMS Macro V04-00 Page g | 
L OUT.MAR; 1 (2) 


-SBTTL Edit History 
- Original by Lifting code from FORCVTRT.MAR (Version 1-007) 


10 - 


FAN 9 OOO EP OOOO 


DPDR_DPEDPED PAA & & 


- Lobleeton’ tu Sry point FORSCNV_OUT_E 


79 
ng length (taken from FORCVTRT) 
qrech one audit trail. Updated 
orn ¢ 
OTS$ but retain old entry point name. 
Add new entry points for 
Add COBSCNVOU 


y point must branch around OTSS$ entry. 
OTSS convert routines G* 


Added EDIT field for use in 
copyright date. 


and h floating - previous version 
conversion roug ines for g and h. 


PLL 19-Mar-1982 
to get rid of non-pic 


MDL 15-Sep-1982 


Make reference 


roblem 2 
1-011 = Allow for 4-digit exponent (H-floating). 


ad 


Sooooooo: 


COoooo 
Oooo 


SSSsSssssss 


COOoooocoooooo 


SSSSSSSSSSsssss 


Oooo 
Ssssss 
Sooooo 


oOo NMR TTT THT HH 
TRH Tn on 
bs te Ds De es Bs Be es es | Ss Rs Be Bs Bs es Bes Be Be a | 
WBWorornonnocyesc vommnmmnas 


H 10 
al (D, G, H) to Text 


i ; 


: 


74 


MEWIN SO DOONAN EW 0 ODN 


MRI 2 OOOO OOOO OOOOOWWMOMWOMDCOM MOY 
M—OOODVNOUE WW OOONOUM Gr esse us uw 


Se es a 8 ab tt 


-SBTTL DECLARATIONS 
; INCLUDE FILES: 


; EXTERNAL DECLARATIONS: 


-DSABL GBL 

-EXTRN OTSSSCVT_D_T_R 

-EXTRN OTSSSCVT-G-T"R 

-EXTRN OTSSSCVT"H-T-R 

-EXTRN OTSS_FATINTERR 
> MACROS: 


: EQUATED SYMBOLS: 


; Stack frame offsets from FP 


33: Common segne or kernel convert routines 


33 Not-i 


> OWN STORAGE: 


t PSECT DECLARATIONS: 


"SSEp=1986 99:98:25 EMGnre. SeeSorSewvour.man:1 28 dy 


Prevent undeclared 
symbols from oeree 
automatically global. 
Kernel convert routine 
Kernel convert routine 
Kernel convert routine 
Error code 


Temp for packed representation 
Flags for outer and inner routines 
zigntrccant digits 
ag ress of temp string 

g 


n 
Decimal exponent 
Offset 


s 
Right round point 
Common frame size 


Exponent letter to use 

Saved scale factor 

Saved digits in integer 

Saved digits in exponent 

Saved orgs in fraction 

Number of leading digits 

Number of zeroes after decimal pt. 
Number of trailing digits 

Frame size 


Flag to kernel routine 


-PSECT _OTSSCODE PIC, USR, CON, REL. LCL, SHR, - 


eee) 


} 


11 
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petrakariong’: (D, G, H) to Text 
0000 123 


"B=SEb=19Be FP: 48:25 ENSNTL RESTS env 
EXE, RD, NOWRT, LONG 


SS Ss 


OTESeRvOUT = Convert Real (D, G, H) to Text ae 197 3Ee- 138t 90:46:68 AX/VMS Mac 


DECLARATIONS ore enveg malt" 


r 
LIBRTL.SRCJOTSCNVOUT MAR; 1 


oils -SBTTL OTSSCNVOUT = Convert real to text 

; FUNCTIONAL DESCRIPTION: 

This routine performs conversion of floating values 
to text representations. 


CALLING SEQUENCE: 
status.wlc.v = OTSSCNVOUT (value.rx.r, out_string.wt.ds, 
digits_in_fract.rlu.v) 


INPUT PARAMETERS: 


Oooo 


CGOOCOCCOCOCOOSOOSOSS OOOCCOOOOOOOOOOOO 


00000004 value = 4 ; The address of the floating value to be co 
0000000C digits_in_fract = 12 ; The number of digits in the fraction 
3 portion. 
000 3 
; IMPLICIT INPUTS: 
000 : NONE 
: OUTPUT PARAMETERS: 
00000008 : out_string = 8 ; The address of the descriptor of the resul 


string. The string must be 
class S. (Scalar) 


IMPLICIT OUTPUTS: 
NONE 
COMPLETION CODES: 
SS$_NORMAL = Successful completion 


OTSS_FATINTERR = Output conversion error. The value did not 
t in the given string. 


: 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


; SIDE EFFECTS: 


SS$_ROPRAND - If the value to be converted is a reserved 
floating operand. 


er ee ee ee ee ae ee ee eae ee ee ae ae ee ee Se ee ee ee ey 
SDD DDD DED DEAD IT Be Be BB BB EB III III Iron 


OODWNA NEW SO OONA NEW O OD NAUE WR 0 ODNOAUEWH "OOOO 


SOOOOOOCOCOOOOCoCoooo 


oooooo 
Sooooo 
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orth OTSSCNVOUT - Convert real to text mi iets 90:98:28 LIBRTL. SREJOTSCNVOUT MAR: 1 wit 


- ore ENTRY einer “M<R2,R3,R4,R5,R6,R7,RB> 
O1FC .ENTRY OTSSCNVOUT, “M<R2,R3,R4,R5,R6,R7_RB> 
58 O0000000'GF 9 SAME: MOVAB OrSTSSeuT DT RS, RB °; addr of kernel convert routine 
“ 4 B COMMON 
O1FC .ENTRY OTSSCNVOUT_G, “M<R2,R3,R4,R5,R6,R7,RB> 
58 00000000" GF 9 1 MOVAB G*OTSSSCVT-G.T_R8, RB ; addr of kernel convert routine 
9 1 i COMMON 
O1FC 001 .ENTRY OTSSCNVOUT_H, “M<R2,R3,R4,R5,R6,R7,R8> 
58 00000000'GF  9€ MOVAB G*OTSSSCVT"H.T_R8, RB. ; addr of kernel convert routine 
COMMON: 


SE 


BC AD " MOVAB  FRAME(FP), SP Set up stack frame 
ppb eS OF 88 HOVE 


#*A/E/, EXP_LETTER(FP) ; Use Letter E 


3¢ 
; look at the argument List and fill in the appropriate 
3; values in the local frame. 


INITIALIZE: 
F4 AD D4 CLRL 4 et WY : No flags initially 
CC AD 02 00 MOVL #2, S_DECFP) 3; Digits in exponent 
DO AD 04 CLRL S_DI(FP) ; Digits in integer 
Be AD 04 CLRL S_ SCALE (FP) ; Scale factor 
C8 AD C AC 4 90$: MOVL digits in_fract(AP), S_DF(FP) |; Store digits_in_fract 
FO AD CBA D MOVL $ Br cep. S1G_DIGITS(FP) : Initial number Of sig. digits 
52 FO AD 1 C1 10$: ADDL #79, SIG_DIGITS(FP), R2 ; Find temp_string length 
5E : +3 SUBL R2, SP 3; Create string on stack 
35 AD : =o MOVL SP, STRING_ADDR(FP) : Temp string address 
0 04 aC 00 MOVL value(AP), RO 3; Value address 
51 5D 00 MOVL FP, R1 3; Local frame address 
68 16 JSB (RB) ; Call kernel conversion routine 
EC AD EQ AD (CO e comer OFFSETCFP), STRING_ADDR(FP) 3; Get first character pos. 
E8 ap dS . TSTL SIGNCEP) 3 Is value zero? 
0 12 BNEQ $ 3 No 
E4 AD D4 CLRL DEC_EXP(FP) ; Yes, exponent is zero 
BC AD C8 AD 00 20$ MOVL S_DFC(FP) TRAIL_DIGITS(FP) 
C4 AD 4 CLRL LEAD_DIGITS(FP) : Yes 
CO AD 84 CLRL LEAD_ZERO(FP) 


+o 
bod 
a 


Format the digits in the output string. 
The string will be constructed as follows: 


ni blanks, where ni is calculated 
LEAD_DIGITS digits 


LEAD ZERO zeroes 
TRAIC_DIGITS digits 


The sign is inserted where appropriate. If LEAD_DIGITS is 
zero, an optional leading zero is inserted if there is 
room. 


RIPNINMNNINININDS 4 9 9 9  S HDOOODOODOOOO OOO OOOO OO OW 0900090909 O98 INI NNS 
DNA MEAN 9 OD NAME WIN OOD NAME WIN S OD NAME WIN SO OD NAMN EW CO OONOAUE 


Boe Se Se Se Se Se Ge Se Ge Se Se Sete (eh 


REPIMIPOPIPOPOPOPIPIPOPIPOPIPOPOPOPIPOPIPIPINUPINIPUPINUIYD) 2 2 tee 


SOOCOOCOCOOOOOOOOOSS FVWNMOPF F WO WMD WWM DOWFRAAAMAOAOOOO NWO & FO FW MOAR LSNMO 


NSS SSP AA AD II BS AIAN AU PPONIPONPIPONINININYN — 


ooo 
SOOCOSSCOSCOOSOSSCOOSOOGSSOSOOOOOOOOSOSOSOOOOOOOOOOoOoOO 


EE 


L 10 
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1 OTSSCNVOUT - Convert real to text “SEP-1984 11:12:45 CLIBRTL.SRCJOTSCNVOUT.MAR; 1 (6) 


7 :- 
7 
7 FORM_DIGIT: 
28 +3 AD 0 7 MOVL STRING_ADDR(FP), Rg ; Address of first digit 
8S D f MOVQ aout gtringtar), R ; Get string descriptor 
52 8 2 MOVZWL R2, R 
50 C6 AD OC SUBL LEAD DIGITS(FP), R2, RO : Find leading blanks 
BC AD ¢ $ SUBL RAIC DIGITS(FPS, rb 
cc 63 C SUBL S$ _DECFP), R 
0 C 8 $ SUBL #2, RO ; Compensate for exponent 
EB AD OD 10$:  TSTL ; 6N(FP) : Negative? 
1 rk BGEQ $ 3; No 
D 41 15$: DECL R 3; Use another character 
D7 \] tg 20$: DECL R 3: For decimal point 
2 18 9 4 BGEQ 248 3; If room left 
009A =3 38 44 BRwW ERROR 3; No room left 
57 50 0 45 24$: MOVL 88 R7 
1 9C 46 BEQL 228 : Skip if no blanks 
83 2 O9E 47 218: MOVB #*A/ /, (R3)+ ; Insert leading blanks 
FA 50 F5 OOAT 248 SOBGTR RO, 21$ : Loop till done 
ft.) AD D5 OOA4 249 228:  TSTL SIGNCEP) : Negative? 
0 i A7 50 BGEQ 4 3; No 
83 2d Ra? 23 S08: MOVB #*A/-/, (R3)+ ; Minus sign 
U $ 
57 DS QOAC 3g 9: TSTL R7 ; Is there room? 
Of 15 OOA 54 BLEQ 40$ ; No, skip it 
20 91 0B 55 378: CMPB -(R3), #*A/ / 3 Is last char a blank? 
04 13 008 2$ BEQL 38 ; Yes, dont move it 
FF A3 $3 3 0085 5 MOVB (R -1(R3) 3; Move sign 
83 30 9 0089 38 38S: nove #°a/6/, (R3)+ : Insert zero 
63 66 5°" oo ee $e $ 40$: pores ied DIGITS(FP), (R6), (R3) : Move leading digits 
. 
83 2€ 90 d0¢8 6¢ 42$:  MOVB #*A/./, (R34 : Move decimal point 
50 CO AD 00 C 6 MOVL AD_ZERO(FP), RO : Insert leading zeroes 
1 CD 64 BLEQ 3 p none 
83 3 DOCF 65 45$: MOVB #*A/0/, (R3)+ 3; Move a zero 
FA F be 26 SOBGTR 3; Loop till done 
50 BC AD 00 D 67 50$:  MOVL  TRAIL_DIGITS(FP), RO ; Move trailing digits 
gf 15 00D9 $8 BLEQ ; Skip if none : 
63 66 0 28 00D8 8 MOVCS RU, (R6), (R3) ; Move trailing digits 
DODF 0 60$: 
ODE Sp2 
83 DBA 90 OODF 58 MOVB EXP_LETTER(FP), (R3)*  ; Move exponent letter 
54 65 D €3 74 MOVL R3, R4 ; Save address 
F8 AD E46 AD OF £6 275 CVTILP DEC_EXPC(FP), #5, PACKED(FP) ; Convert exponent 
64 CC AD FBAD 05 8 E 7 CVTPS #5, ~PACKED(FP), S_DE(FP), (R4) ; assuming its 2 digits long 
1F 6©1C OOF 7 BVC 70$ : Overflow? 
cc 88 dg : 4 apet parecer) ; Try another digit 
63 CC AD FB AD 93 Os f. ? er We PACKED(FP), S_DECFP), i 
cc 4g bg 3 § INCL S_DE(FP) ; Try another digit 
5 DECL Re 
63 CC AD FB AD 5 8 4 CVTPS J PACKED(FP), S_DE(FP), (R3) 
3 «1C F 5 BVC 70$ : No overflow 


QO1F 
53. ce 0 
50 «(08 BC 


8 8B 
61 50 2A 6€ 0 
50 00000000' 8F 


M10 
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onvert real to text -SEP-1984 


nm ese 
oe 
2 
= 
wn 
xm 


a dd ot at ot CUD 
m 
D 
@D 
So 
Po) 


ES PE WIWIWIWININononony |  -2 2 oe 


4 
MINES NWI ONS Mmm > > > PoLr— ed 
H[DOOOCOCOCOCOCOCOCOVOOOOOOOOO@@MeD - 


SOWDNAMNE WN $$ O ODNAUES WN O OONO 


16-SEP-1984 00:22:4 AX/VMS Macro V04-00 Page 
99:48i2d HMTANTS Bace OOO marst 2? 
RW ERROR i; Overflow, must be >4 digits long 
DL2 S_DEC(FP), R3 : Move string pointer 
INCL Qe 
fill the remainder of the string and return to the caller. 
@out_string(AP), RO 3; Get string descriptor 
RO, RO 
RO, R1 3; Find last character 
R3, R1 ; Subtract characters used 
Ex{T : If none left, exit 
#0, (SP), #*A/ /, R1, (RS) ; Blank fill remainder 
#1, RO 3 SS$_NORMAL 


aout gsc ingt™) RO 
#0 TSP), B*A/*/, RO, (R1) 
#OTS$_FATINTERR, RO 


OTSSCNVOUT 
Symbol table 


COBSCNVOUT 
OMMON 


C 

COMMON _F RAME 
DEC_EXP 
DIGTTS_IN_FRACT 


ou 
“ou 


ad 
mm 
oe 
-S 
H 


OTSSCNVOUT 
OTS$_FATINTERR 
OUT_STRING 


v 
> 
oO 
mv oO 
=] 
nun 


PSECT name 


. ABS, 
“OTSS$CODE 


Phase 


Initialization 


FR—IVNOMIWOMOINO 


SOOLSOOMOCLMIW WO LOW’O 


Morvww~a 


reaeeene 
reerkenre 
eeraereree 


0000000 


S 
=] 


es Do | 
FOF ODOOCwOO 


Sa tena Bt sn na Iona a) 
mn” 


Command processing 


Pass 
Symbol table sort 
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DD 

3) 
oo 
-_—— 


» 

a 
Qoooeoeco 
o--— OOO 


Ps) 
oO 
= 


Allocation 
000 
000 


Page faults 


: 


5 
0 


3 


(323 
+ 


H Performance indicators H 


CPU Time 


noo 


+ 


: 


0 


7? 
9 


2 


PSECT No. 


( 0.) NOPIC 
1 PIC 


( mS 


Elapsed Time 


Ba 


teowccoe woecooece eS 
' Psect synopsis : 


Attributes 


9 


i 


n= 


04-00 P 
CNVOUT.MAR; 1 


NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SHR RD NOWRT NOVEC LONG 


v0 
s 


4-00 Pa 
CNVOUT.MAR; 1 ” 


ao 
oo 


acro 
RCJOT 


Pass 2 69 :00: 
4 :QQ: 
0137 O06? 
working set Limit was 900 pages. 


Symbol table output 
The s¢ 
5317 bytes (11 pages) of virtual memory were used to buffer the intermediate 


8 
OTSSCNVOUT = Convert Real (D, G, H) to Text yp as at 9 90:46:46 mi MS 
6-SEP-1984 11:12:45 (CLIBRTL 
Psect synopsis output 
Cross-reference output 31 
goer. 

There were 10 pages of symbol table space al ey to hold 39 non=lucal and 21 local symbols. 

10 source Lines were read in Pass 1, producin object recor“s in Pass 2. 


VAX=11 Macro Run Statistics 
4 :00:01. ¢ 
1 :00: ‘Fi 
Assembler run totals : 
pages of virtual memory were used to define 0 macros. 


¢aewmecmeoroereen eee er eon es - cme} 


Macro Library statistics '! 


' 
Qunscwonesesansamecsensenast 


Macro Library name Macros defined 
“$255$DUA28: (SYSLIBISTARLET.MLB; 2 Rey 
0 GETS were required to define 0 macros. 

There were no errors, warnings or information messages. 


MACRO/ENABLE=SUPPRESSION/DI SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:OTSCNVOUT/OBJ=OBJ$:OTSCNVOUT MSRC$:OTSCNVOUT/UPDATE=(ENH$:OTSCNVOUT) 


| N91 | AH-BT13A-SE 7 T CORPORATION 
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